Add: 
 An xFiles object called ThisXMLFile

Add:
  ThisXMLFile.Save(self.EmailsDoneBeforeQ, 'Emails.xml')  ! Save the Queue to the XML file

Add:
  ThisXMLFile.Load(self.EmailsDoneBeforeQ, 'Emails.xml')  ! Load the Queue to the XML file
  
  Add:
                           TAB(' Introduction '),USE(?Tab9)
                             GROUP(' Information '),AT(111,28,298,76),USE(?Group9),BOXED
                               PROMPT('This is a small example that shows how to use the Don''t Download Emails Again Op' &|
     'tion.'),AT(119,41,281,17),USE(?Prompt29),CENTER
                               PROMPT('This example uses the same Email Receive Window from the NetDemo.app, but has al' &|
     'so uses the xFiles objects to load and save the .EmailsDoneBeforeQ in the SaveEm' &|
     'ailsDoneBeforeQ() and LoadEmailsDoneBeforeQ(), so that this list persists.'),AT(119,60,281,30),USE(?Prompt29:2),CENTER
                             END
                           END

